* src/alloc.c (verify_alloca): Replace a stray occurrence of pointer_valid_for_lisp_o...

diff --git a/src/alloc.c b/src/alloc.c
index 714827f6ae33c53282cb8d38138b7206ba0e6d63..1dbd46d6f892cc11a23d0cfd7e4251efedd50447 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -7175,8 +7175,8 @@ verify_alloca (void)
   /* Start from size of the smallest Lisp object.  */
   for (i = sizeof (struct Lisp_Cons); i <= ALLOCA_CHECK_MAX; i++)
     {
-      char *ptr = alloca (i);
-      eassert (pointer_valid_for_lisp_object (ptr));
+      void *ptr = alloca (i);
+      make_lisp_ptr (ptr, Lisp_Cons);
     }
 }